(read-passwd): Use clear-this-command-keys.

diff --git a/lisp/subr.el b/lisp/subr.el
index f92e78d9afb5b2178ed2dea303fa58c9e336277f..9bea598b8a5780c03c011cbbd44bd15120d58ba5 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -792,6 +792,7 @@ Optional DEFAULT is a default password to use instead of empty input."
              (message "Password not repeated accurately; please start over")
              (sit-for 1))))
        success)
+    (clear-this-command-keys)
     (let ((pass nil)
          (c 0)
          (echo-keystrokes 0)